perm filename PASCAL.ODF[PAS,SYS]2 blob
sn#452540 filedate 1979-07-01 generic text, type C, neo UTF8
COMMENT ⊗ VALID 00013 PAGES
C REC PAGE DESCRIPTION
C00001 00001
C00003 00002 1) PASCAL.BKP[PAS,SYS] and 2) PASCAL.PAS[PAS,SYS] 6-28-79 10:21 pages 1,1
C00007 00003 1) PASCAL.BKP[PAS,SYS] and 2) PASCAL.PAS[PAS,SYS] 6-28-79 10:21 pages 1,1
C00011 00004 1) PASCAL.BKP[PAS,SYS] and 2) PASCAL.PAS[PAS,SYS] 6-28-79 10:21 pages 1,1
C00014 00005 1) PASCAL.BKP[PAS,SYS] and 2) PASCAL.PAS[PAS,SYS] 6-28-79 10:21 pages 10,10
C00017 00006 1) PASCAL.BKP[PAS,SYS] and 2) PASCAL.PAS[PAS,SYS] 6-28-79 10:21 pages 14,14
C00020 00007 1) PASCAL.BKP[PAS,SYS] and 2) PASCAL.PAS[PAS,SYS] 6-28-79 10:21 pages 14,14
C00023 00008 1) PASCAL.BKP[PAS,SYS] and 2) PASCAL.PAS[PAS,SYS] 6-28-79 10:21 pages 14,14
C00026 00009 1) PASCAL.BKP[PAS,SYS] and 2) PASCAL.PAS[PAS,SYS] 6-28-79 10:21 pages 14,14
C00028 00010 1) PASCAL.BKP[PAS,SYS] and 2) PASCAL.PAS[PAS,SYS] 6-28-79 10:21 pages 16,16
C00030 00011 1) PASCAL.BKP[PAS,SYS] and 2) PASCAL.PAS[PAS,SYS] 6-28-79 10:21 pages 16,16
C00032 00012 1) PASCAL.BKP[PAS,SYS] and 2) PASCAL.PAS[PAS,SYS] 6-28-79 10:21 pages 35,35
C00035 00013 1) PASCAL.BKP[PAS,SYS] and 2) PASCAL.PAS[PAS,SYS] 6-28-79 10:21 pages 59,59
C00036 ENDMK
C⊗;
1) PASCAL.BKP[PAS,SYS] and 2) PASCAL.PAS[PAS,SYS] 6-28-79 10:21 pages 1,1
**** File 1) PASCAL.BKP[PAS,SYS], Page 1 line 4
1) C00006 00002 (*$T-,S1300,R16*)
1) C00012 00003 (********************************************************************************
**** File 2) PASCAL.PAS[PAS,SYS], Page 1 line 4
2) C00006 00002 (*$T-,S1300,R16*) (* EJG(26JAN78): file = 11985 lines (not incl. E directory) *)
2) C00012 00003 (********************************************************************************
***************
**** File 1) PASCAL.BKP[PAS,SYS], Page 1 line 12
1) C00063 00010 INITPROCEDURE (* MNEMONICS *)
1) C00117 00011 PROCEDURE INIT←COMPILE
1) C00121 00012 PROCEDURE ERROR(FERRNR: INTEGER)
1) C00123 00013 PROCEDURE ENTERID(FCP: CTP)
1) C00125 00014 PROCEDURE GET←DIRECTIVES
1) C00154 00015 PROCEDURE COMPILE
1) C00161 00016 PROCEDURE INSYMBOL
1) C00176 00017 PROCEDURE SEARCHSECTION(FCP: CTP VAR FCP1: CTP)
1) C00181 00018 PROCEDURE BLOCK(FPROCP: CTP FSYS,LEAVEBLOCKSYS: SETOFSYS)
1) C00185 00019 FUNCTION COMPTYPES(FSP1,FSP2: STP) : BOOLEAN
1) C00192 00020 PROCEDURE SIMPLETYPE(FSYS: SETOFSYS VAR FSP: STP VAR FSIZE: ADDRRANGE
1) C00198 00021 PROCEDURE FIELDLIST(FSYS: SETOFSYS VAR FRECVAR: STP VAR FFIRSTFIELD: CTP)
1) C00208 00022 BEGIN
1) C00219 00023 PROCEDURE LABELDECLARATION
1) C00228 00024 PROCEDURE PROCEDUREDECLARATION(PROCFLAG: BOOLEAN)
1) C00246 00025 PROCEDURE BODY(FSYS: SETOFSYS)
1) C00258 00026 PROCEDURE ENTERBODY
1) C00274 00027 PROCEDURE GENERATE←CODE(FINSTR: INSTRANGE FAC: ACRANGE VAR FATTR: ATTR)
1) C00281 00028 PROCEDURE LOAD(VAR FATTR: ATTR)
1) C00286 00029 PROCEDURE WRITE←MACHINE←CODE(WRITE←FLAG:WRITE←FORM)
1) C00296 00030 PROCEDURE CODE←FOR←FILEBLOCKS
1) C00309 00031 PROCEDURE CODE←FOR←DEBUG
1) C00323 00032 PROCEDURE CODE←FOR←CONTROL
1) C00329 00033 PROCEDURE CODE←FOR←SYMBOLS
1) C00335 00034 BEGIN
1) C00337 00035 PROCEDURE STATEMENT(FSYS,STATENDS: SETOFSYS)
1) C00350 00036 PROCEDURE CALL(FSYS: SETOFSYS FCP: CTP)
1) C00355 00037 PROCEDURE VARIABLE(FSYS: SETOFSYS)
1) C00360 00038 PROCEDURE CALL←SUPPORT
1) C00372 00039 PROCEDURE MESSAGE
1) C00383 00040 PROCEDURE NEWDISPOSE
1) C00392 00041 PROCEDURE FIRSTLAST
1) C00399 00042 PROCEDURE GETLINENR
1) C00407 00043 PROCEDURE CALL
1) C00427 00044 BEGIN
1) C00431 00045 PROCEDURE EXPRESSION
1) C00435 00046 PROCEDURE SIMPLEEXPRESSION(FSYS: SETOFSYS)
1) C00452 00047 BEGIN
1) PASCAL.BKP[PAS,SYS] and 2) PASCAL.PAS[PAS,SYS] 6-28-79 10:21 pages 1,1
1) C00463 00048 PROCEDURE ASSIGNMENT(FCP: CTP)
1) C00474 00049 PROCEDURE GOTOSTATEMENT
1) C00477 00050 PROCEDURE CASESTATEMENT
1) C00485 00051 PROCEDURE REPEATSTATEMENT
1) C00494 00052 PROCEDURE WITHSTATEMENT
1) C00497 00053 BEGIN
1) C00501 00054 BEGIN
1) C00504 00055 BEGIN
1) C00507 00056 BEGIN (* COMPILE *)
1) C00520 00057 PROCEDURE ENTERSTDTYPES
1) C00534 00058 PROCEDURE ENTERUNDECL
1) C00536 00059 BEGIN (*PASCAL*)
1) C00539 ENDMK
1) C⊗;
1) (*$T-,S1300,R16*)
1) (********************************************************************************
**** File 2) PASCAL.PAS[PAS,SYS], Page 1 line 12
2) C00064 00010 INITPROCEDURE (* MNEMONICS *)
2) C00118 00011 PROCEDURE INIT←COMPILE
2) C00122 00012 PROCEDURE ERROR(FERRNR: INTEGER)
2) C00124 00013 PROCEDURE ENTERID(FCP: CTP)
2) C00126 00014 PROCEDURE GET←DIRECTIVES
2) C00155 00015 PROCEDURE COMPILE
2) C00162 00016 PROCEDURE INSYMBOL
2) C00178 00017 PROCEDURE SEARCHSECTION(FCP: CTP VAR FCP1: CTP)
2) C00183 00018 PROCEDURE BLOCK(FPROCP: CTP FSYS,LEAVEBLOCKSYS: SETOFSYS)
2) C00187 00019 FUNCTION COMPTYPES(FSP1,FSP2: STP) : BOOLEAN
2) C00194 00020 PROCEDURE SIMPLETYPE(FSYS: SETOFSYS VAR FSP: STP VAR FSIZE: ADDRRANGE
2) C00200 00021 PROCEDURE FIELDLIST(FSYS: SETOFSYS VAR FRECVAR: STP VAR FFIRSTFIELD: CTP)
2) C00210 00022 BEGIN
2) C00221 00023 PROCEDURE LABELDECLARATION
2) C00230 00024 PROCEDURE PROCEDUREDECLARATION(PROCFLAG: BOOLEAN)
2) C00248 00025 PROCEDURE BODY(FSYS: SETOFSYS)
2) C00260 00026 PROCEDURE ENTERBODY
2) C00276 00027 PROCEDURE GENERATE←CODE(FINSTR: INSTRANGE FAC: ACRANGE VAR FATTR: ATTR)
2) C00283 00028 PROCEDURE LOAD(VAR FATTR: ATTR)
2) C00288 00029 PROCEDURE WRITE←MACHINE←CODE(WRITE←FLAG:WRITE←FORM)
2) C00298 00030 PROCEDURE CODE←FOR←FILEBLOCKS
2) C00311 00031 PROCEDURE CODE←FOR←DEBUG
2) C00325 00032 PROCEDURE CODE←FOR←CONTROL
2) C00331 00033 PROCEDURE CODE←FOR←SYMBOLS
2) C00337 00034 BEGIN
2) C00339 00035 PROCEDURE STATEMENT(FSYS,STATENDS: SETOFSYS)
2) C00353 00036 PROCEDURE CALL(FSYS: SETOFSYS FCP: CTP)
2) C00358 00037 PROCEDURE VARIABLE(FSYS: SETOFSYS)
2) C00363 00038 PROCEDURE CALL←SUPPORT
2) C00375 00039 PROCEDURE MESSAGE
2) C00386 00040 PROCEDURE NEWDISPOSE
1) PASCAL.BKP[PAS,SYS] and 2) PASCAL.PAS[PAS,SYS] 6-28-79 10:21 pages 1,1
2) C00395 00041 PROCEDURE FIRSTLAST
2) C00402 00042 PROCEDURE GETLINENR
2) C00410 00043 PROCEDURE CALL
2) C00430 00044 BEGIN
2) C00434 00045 PROCEDURE EXPRESSION
2) C00438 00046 PROCEDURE SIMPLEEXPRESSION(FSYS: SETOFSYS)
2) C00455 00047 BEGIN
2) C00466 00048 PROCEDURE ASSIGNMENT(FCP: CTP)
2) C00477 00049 PROCEDURE GOTOSTATEMENT
2) C00480 00050 PROCEDURE CASESTATEMENT
2) C00488 00051 PROCEDURE REPEATSTATEMENT
2) C00497 00052 PROCEDURE WITHSTATEMENT
2) C00500 00053 BEGIN
2) C00504 00054 BEGIN
2) C00507 00055 BEGIN
2) C00510 00056 BEGIN (* COMPILE *)
2) C00523 00057 PROCEDURE ENTERSTDTYPES
2) C00537 00058 PROCEDURE ENTERUNDECL
2) C00539 00059 BEGIN (*PASCAL*)
2) C00542 ENDMK
2) C⊗;
2) (*$T-,S1300,R16*) (* EJG(26JAN78): file = 11985 lines (not incl. E directory) *)
2) (********************************************************************************
***************
**** File 1) PASCAL.BKP[PAS,SYS], Page 9 line 256
1) LIST←FILE, SOURCE←FILE, OBJECT←FILE: PACKED ARRAY[1..9] OF CHAR;
**** File 2) PASCAL.PAS[PAS,SYS], Page 9 line 256
2) LINKER: PACKED ARRAY[1..9] OF CHAR;
2) LINKTMP←FILE,
2) LIST←FILE, SOURCE←FILE, OBJECT←FILE: PACKED ARRAY[1..9] OF CHAR;
***************
**** File 1) PASCAL.BKP[PAS,SYS], Page 10 line 73
1) LIBRARY[PASCALSY].DEVICE := 'DSK ';
1) LIBRARY[FORTRANSY].DEVICE := 'SYS ';
**** File 2) PASCAL.PAS[PAS,SYS], Page 10 line 73
2) LIBRARY[PASCALSY].DEVICE := 'SYS ';
2) LIBRARY[FORTRANSY].DEVICE := 'SYS ';
***************
**** File 1) PASCAL.BKP[PAS,SYS], Page 10 line 80
1) CROSS←DEVICE := 'DSK ';
1) CROSS←PPN := 0;
**** File 2) PASCAL.PAS[PAS,SYS], Page 10 line 80
1) PASCAL.BKP[PAS,SYS] and 2) PASCAL.PAS[PAS,SYS] 6-28-79 10:21 pages 10,10
2) CROSS←DEVICE := 'SYS ';
2) CROSS←PPN := 0;
***************
**** File 1) PASCAL.BKP[PAS,SYS], Page 14 line 15
1) * <PROJECT>, <PROGRAMMER>, <PROTECTION> ::= <UNSIGNED OCTAL NUMBER>
1) * <SWITCH> ::= <IDENTIFIER> OR <IDENTIFIER>:<VALUE>
**** File 2) PASCAL.PAS[PAS,SYS], Page 14 line 15
2) * <PROJECT>, <PROGRAMMER> ::= <SIXBIT CHARACTERS (ALPHANUMERIC)>
2) * <PROTECTION> ::= <UNSIGNED OCTAL NUMBER>
2) * <SWITCH> ::= <IDENTIFIER> OR <IDENTIFIER>:<VALUE>
***************
**** File 1) PASCAL.BKP[PAS,SYS], Page 14 line 43
1) LASTCH: CHAR;
**** File 2) PASCAL.PAS[PAS,SYS], Page 14 line 44
2) DEFAULT←FILESPECS : BOOLEAN;
2) LASTCH: CHAR;
***************
**** File 1) PASCAL.BKP[PAS,SYS], Page 14 line 47
1) DELIMITER3: ARRAY['['..']'] OF DELIMITER;
1) PROCEDURE STARTVALUES ;
**** File 2) PASCAL.PAS[PAS,SYS], Page 14 line 49
2) DELIMITER3: ARRAY['['..'←'] OF DELIMITER;
2) PROCEDURE STARTVALUES ;
***************
**** File 1) PASCAL.BKP[PAS,SYS], Page 14 line 52
1) SWITCH←TREE := NIL; CURRENT←SWITCH := NIL;
**** File 2) PASCAL.PAS[PAS,SYS], Page 14 line 54
2) DEFAULT←FILESPECS := FALSE;
2) SWITCH←TREE := NIL; CURRENT←SWITCH := NIL;
***************
**** File 1) PASCAL.BKP[PAS,SYS], Page 14 line 60
1) END;
**** File 2) PASCAL.PAS[PAS,SYS], Page 14 line 63
2) DELIMITER3['←'] := EQUAL;
2) END;
***************
1) PASCAL.BKP[PAS,SYS] and 2) PASCAL.PAS[PAS,SYS] 6-28-79 10:21 pages 14,14
**** File 1) PASCAL.BKP[PAS,SYS], Page 14 line 151
1) IF FCH IN [' ','!','(',')',',','.','/',':','<','=','>','[',']']
1) THEN
**** File 2) PASCAL.PAS[PAS,SYS], Page 14 line 155
2) IF FCH IN [' ','!','(',')',',','.','/',':','<','=','>','[',']','←']
2) THEN
***************
**** File 1) PASCAL.BKP[PAS,SYS], Page 14 line 215
1) PROCEDURE READDECIMAL;
**** File 2) PASCAL.PAS[PAS,SYS], Page 14 line 219
2) PROCEDURE READSIXBIT;
2) BEGIN
2) IF CH IN [' '..'←']
2) THEN
2) BEGIN
2) OCVAL := OCVAL * 100B + (ORD(CH) - ORD(' '))
2) END
2) ELSE ERROR := TRUE
2) END (*READSIXBIT*) ;
2) PROCEDURE READDECIMAL;
***************
**** File 1) PASCAL.BKP[PAS,SYS], Page 14 line 295
1) IF CH IN [',','=']
1) THEN
1) BEGIN
1) END←OF←FILENAME := TRUE; CH := ' '
**** File 2) PASCAL.PAS[PAS,SYS], Page 14 line 309
2) IF CH IN [',','=','←']
2) THEN
2) BEGIN
2) IF CH IN ['=','←'] THEN DEFAULT←FILESPECS := TRUE;
2) END←OF←FILENAME := TRUE; CH := ' '
***************
**** File 1) PASCAL.BKP[PAS,SYS], Page 14 line 316
1) IF END←OF←FILENAME OR ((CH=',') AND (STATUS<>'[')) OR (CH='=')
1) THEN
1) BEGIN
1) END←OF←FILENAME := TRUE;
**** File 2) PASCAL.PAS[PAS,SYS], Page 14 line 331
2) IF END←OF←FILENAME OR ((CH=',') AND (STATUS<>'[')) OR (CH IN ['=','←'])
2) THEN
2) BEGIN
1) PASCAL.BKP[PAS,SYS] and 2) PASCAL.PAS[PAS,SYS] 6-28-79 10:21 pages 14,14
2) IF CH IN ['=','←'] THEN DEFAULT←FILESPECS := TRUE;
2) END←OF←FILENAME := TRUE;
***************
**** File 1) PASCAL.BKP[PAS,SYS], Page 14 line 348
1) IF STATUS IN ['[',',','<']
1) THEN READOCTAL
1) ELSE READCHAR
1) ELSE SETSTATUS
**** File 2) PASCAL.PAS[PAS,SYS], Page 14 line 364
2) IF STATUS IN ['[',',']
2) THEN READSIXBIT
2) ELSE
2) IF STATUS = '<'
2) THEN READOCTAL
2) ELSE READCHAR
2) ELSE SETSTATUS
***************
**** File 1) PASCAL.BKP[PAS,SYS], Page 14 line 372
1) IF NOT EOF(SOURCEFILE)
**** File 2) PASCAL.PAS[PAS,SYS], Page 14 line 391
2) IF DEFAULT←FILESPECS
2) THEN END←OF←FILENAME := TRUE
2) ELSE
2) IF NOT EOF(SOURCEFILE)
***************
**** File 1) PASCAL.BKP[PAS,SYS], Page 14 line 402
1) UFD := OCVAL * 1000000B;
1) RBRACK :
**** File 2) PASCAL.PAS[PAS,SYS], Page 14 line 424
2) IF OCVAL >= 400000B
2) THEN UFD := (OCVAL-400000B) * 1000000B + 400000000000B
2) ELSE UFD := OCVAL * 1000000B;
2) RBRACK :
***************
**** File 1) PASCAL.BKP[PAS,SYS], Page 14 line 531
1) GETPARAMETER(LIST←FILE,LIST←PROTECTION,LIST←UFD,LIST←DEVICE,'LIST ');
1) GETPARAMETER(SOURCE←FILE,SOURCE←PROTECTION,SOURCE←UFD,SOURCE←DEVICE,'SOURCE ');
**** File 2) PASCAL.PAS[PAS,SYS], Page 14 line 555
2) IF OBJECT←PROTECTION = 0 THEN OBJECT←PROTECTION := 400B (*NODUMP EJG:20JAN79*);
2) GETPARAMETER(LIST←FILE,LIST←PROTECTION,LIST←UFD,LIST←DEVICE,'LIST ');
1) PASCAL.BKP[PAS,SYS] and 2) PASCAL.PAS[PAS,SYS] 6-28-79 10:21 pages 14,14
2) DEFAULT←FILESPECS := FALSE;
2) GETPARAMETER(SOURCE←FILE,SOURCE←PROTECTION,SOURCE←UFD,SOURCE←DEVICE,'SOURCE ');
***************
**** File 1) PASCAL.BKP[PAS,SYS], Page 14 line 569
1) LOAD←AND←GO := NOT(OPTION('NOEXECUTE ') OR OPTION('NOLINK ') OR EXTERNAL);;
1) IF OPTION('CARD ')
**** File 2) PASCAL.PAS[PAS,SYS], Page 14 line 595
2) LOAD←AND←GO := (NOT EXTERNAL) AND (NOT OPTION('NOLINK '))
2) AND (OPTION('LINK ') OR OPTION('LOADER '));
2) IF OPTION('LOADER ') THEN
2) BEGIN
2) LINKER := 'LOADER ';
2) LINKTMP←FILE := 'LOA TMP'
2) END
2) ELSE
2) BEGIN
2) LINKER := 'LINK ';
2) LINKTMP←FILE := 'LNK TMP'
2) END;
2) IF OPTION('CARD ')
***************
**** File 1) PASCAL.BKP[PAS,SYS], Page 14 line 596
1) RESET(TEMPCORE,'LNK TMP');
1) IF NOT EOF(TEMPCORE)
**** File 2) PASCAL.PAS[PAS,SYS], Page 14 line 633
2) RESET(TEMPCORE,LINKTMP←FILE);
2) IF NOT EOF(TEMPCORE)
***************
**** File 1) PASCAL.BKP[PAS,SYS], Page 14 line 623
1) REWRITE(TEMPCORE,'LNK TMP');
1) WRITE(TEMPCORE,COMMAND←BUFFER↑:I);
**** File 2) PASCAL.PAS[PAS,SYS], Page 14 line 660
2) REWRITE(TEMPCORE,LINKTMP←FILE);
2) WRITE(TEMPCORE,COMMAND←BUFFER↑:I);
***************
**** File 1) PASCAL.BKP[PAS,SYS], Page 14 line 632
1) REWRITE(TEMPCORE,'LNK TMP');
1) WRITE(TEMPCORE,'DSK:',OBJECT←FILE:6,' /G ');
1) IF NOT OPTION('NOEXECUTE ')
1) THEN WRITE(TEMPCORE,'/E')
1) PASCAL.BKP[PAS,SYS] and 2) PASCAL.PAS[PAS,SYS] 6-28-79 10:21 pages 14,14
1) END
**** File 2) PASCAL.PAS[PAS,SYS], Page 14 line 669
2) REWRITE(TEMPCORE,LINKTMP←FILE);
2) WRITE(TEMPCORE,'=DSK:',OBJECT←FILE:6);
2) IF OPTION('EXECUTE ')
2) THEN WRITE(TEMPCORE,'/E');
2) WRITE(TEMPCORE,' /G ');
2) END
***************
**** File 1) PASCAL.BKP[PAS,SYS], Page 16 line 7
1) 222;
1) CONST
**** File 2) PASCAL.PAS[PAS,SYS], Page 16 line 7
2) 1,222;
2) CONST
***************
**** File 1) PASCAL.BKP[PAS,SYS], Page 16 line 78
1) CHCNTMAX := 72;
1) 'T':
**** File 2) PASCAL.PAS[PAS,SYS], Page 16 line 78
2) IF lswitch=true then
2) CHCNTMAX := 72;
2) 'T':
***************
**** File 1) PASCAL.BKP[PAS,SYS], Page 16 line 140
1) BEGIN
1) (*INSYMBOL*)
1) WHILE CH = ' ' DO
**** File 2) PASCAL.PAS[PAS,SYS], Page 16 line 141
2) PROCEDURE SKIP←E←DIRECTORY;
2) BEGIN (*SKIP←E←DIRECTORY*)
2) LOOP
2) EXIT IF (CH=';');
2) IF EOLN(SOURCE)
2) THEN ENDOFLINE;
2) NEXTCH
2) END (*LOOP*);
2) NEXTCH
2) END (*SKIP←E←DIRECTORY*);
2) BEGIN
2) (*INSYMBOL*)
2) 1:
1) PASCAL.BKP[PAS,SYS] and 2) PASCAL.PAS[PAS,SYS] 6-28-79 10:21 pages 16,16
2) WHILE CH = ' ' DO
***************
**** File 1) PASCAL.BKP[PAS,SYS], Page 16 line 151
1) SKIPCOMMENT; INSYMBOL
1) END;
**** File 2) PASCAL.PAS[PAS,SYS], Page 16 line 165
2) SKIPCOMMENT; goto 1
2) END;
***************
**** File 1) PASCAL.BKP[PAS,SYS], Page 16 line 159
1) SKIPCOMMENT; INSYMBOL
1) END
**** File 2) PASCAL.PAS[PAS,SYS], Page 16 line 173
2) SKIPCOMMENT; goto 1;
2) END
***************
**** File 1) PASCAL.BKP[PAS,SYS], Page 16 line 166
1) 'A','B','C','D','E','F','G','H','I','J','K','L','M',
**** File 2) PASCAL.PAS[PAS,SYS], Page 16 line 180
2) '"': (*beginning of SLAC comment*)
2) begin
2) nextch;
2) while ch<>'"' do
2) begin
2) if eoln(source) then endofline;
2) nextch;
2) end;
2) if eoln(source) then endofline;
2) nextch;
2) goto 1;
2) end;
2) '#': (*also a comment*)
2) begin
2) while ch='#' do nextch;
2) if eoln(source) then endofline;
2) goto 1;
2) end;
2) 'A','B','C','D','E','F','G','H','I','J','K','L','M',
***************
**** File 1) PASCAL.BKP[PAS,SYS], Page 16 line 179
1) PASCAL.BKP[PAS,SYS] and 2) PASCAL.PAS[PAS,SYS] 6-28-79 10:21 pages 16,16
1) FOR I := FRW[K] TO FRW[K+1] - 1 DO
**** File 2) PASCAL.PAS[PAS,SYS], Page 16 line 211
2) IF FIRST←SYMBOL AND (ID = 'COMMENT ') THEN
2) BEGIN
2) SKIP←E←DIRECTORY; goto 1;
2) END
2) ELSE
2) BEGIN
2) FOR I := FRW[K] TO FRW[K+1] - 1 DO
***************
**** File 1) PASCAL.BKP[PAS,SYS], Page 16 line 190
1) 222:
**** File 2) PASCAL.PAS[PAS,SYS], Page 16 line 228
2) END;
2) 222:
***************
**** File 1) PASCAL.BKP[PAS,SYS], Page 16 line 342
1) '"':
1) BEGIN
**** File 2) PASCAL.PAS[PAS,SYS], Page 16 line 381
2) '!': (*peg 7/78*)
2) BEGIN
***************
**** File 1) PASCAL.BKP[PAS,SYS], Page 32 line 131
1) WRITE←PAIR(NO,400000B,400000B)
1) END
**** File 2) PASCAL.PAS[PAS,SYS], Page 32 line 131
2) WRITE←PAIR(RIGHT,400000B,400000B)
2) END
***************
**** File 1) PASCAL.BKP[PAS,SYS], Page 35 line 31
1) BEGIN
**** File 2) PASCAL.PAS[PAS,SYS], Page 35 line 31
2) var
2) lattr: attr; (* arr 27-jun-79. allow subscripts longer than half word*)
2) BEGIN
***************
**** File 1) PASCAL.BKP[PAS,SYS], Page 35 line 40
1) PASCAL.BKP[PAS,SYS] and 2) PASCAL.PAS[PAS,SYS] 6-28-79 10:21 pages 35,35
1) MACRO3(301B(*CAIL*),REGC,0);
1) MACRO3(303B(*CAILE*),REGC,LMAX-LMIN);
1) SUPPORT(INDEXERROR)
**** File 2) PASCAL.PAS[PAS,SYS], Page 35 line 43
2) with lattr do (* arr, 27-jun-79 *)
2) begin (* allow array bounds larger than half-word*)
2) typtr := intptr; kind := cst; cval.ival := lmax-lmin;
2) end;
2) generate←code(317b(*camg*),regc,lattr);
2) macro3(305b(*caige*),regc,0);
2) (* MACRO3(301B(*CAIL* ),REGC,0); *)
2) (* MACRO3(303B(*CAILE* ),REGC,LMAX-LMIN); *)
2) SUPPORT(INDEXERROR)
***************
**** File 1) PASCAL.BKP[PAS,SYS], Page 35 line 214
1) MACRO4(571B(*HRREI*),REGC,INDEXR,INDEXOFFSET);
1) INCREMENT←REGC;
**** File 2) PASCAL.PAS[PAS,SYS], Page 35 line 223
2) if lmax <= maxaddr then
2) MACRO4(571B(*HRREI*),REGC,INDEXR,INDEXOFFSET)
2) else
2) begin
2) macro4(200b(*move*),regc,0,indexr);
2) if indexoffset <> 0 then
2) macro3(271b(*addi*),regc,indexoffset);
2) end;
2) INCREMENT←REGC;
***************
**** File 1) PASCAL.BKP[PAS,SYS], Page 59 line 62
1) CALL('LINK ')
1) END
**** File 2) PASCAL.PAS[PAS,SYS], Page 59 line 62
2) CALL(LINKER)
2) END
***************
**** File 1) PASCAL.BKP[PAS,SYS], Page 59 line 68
1) RESET(TEMPCORE,'LNK TMP')
1) END
**** File 2) PASCAL.PAS[PAS,SYS], Page 59 line 68
2) RESET(TEMPCORE,LINKTMP←FILE)
2) END
***************
1) PASCAL.BKP[PAS,SYS] and 2) PASCAL.PAS[PAS,SYS] 6-28-79 10:21 pages 59,59